home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b2.d64 / food prices.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  49 lines
  1. 1 POKE53280,1:POKE53281,1:POKE53272,21
  2. 2 PRINT"[147][144]":PRINTTAB(14)"UNIT PRICES"
  3. 3 PRINT"PLEASE SPELL UNIT NAME IN FULL-NO COMMAS"
  4. 4 PRINT"EXAMPLE: EGG EXTRA LARGE AA
  5. 5 [143]***DATA STATEMENT FORM:***
  6. 6 [143]***110 DATA GREEN ONION,.32 ***
  7. 7 [143]**DATA STATEMENTS BEGIN AT 100.TO    GET BACK INTO PROGRAM,TYPE:RUN RET.**
  8. 8 [153]"FOR DATA STATEMENT FORM TYPE:":[153]:[153] [163]11)"RETURN LIST 5-7 RETURN"
  9. 9 [153]:[153]:[153]:[153]
  10. 10 [153]"WHAT PRICE DO YOU WANT"
  11. 11 [140]
  12. 12 [156]
  13. 13 [143]*PROGRAM WRITTEN 7 MARCH '78 BY*             **MIKE HAGLUND**
  14. 20 [133] F$
  15. 30 [135] F1$
  16. 35 [139] F1$[178]"EOF" [137] 70
  17. 40 [139] F1$[178]F$ [167] [135] A:N[178]N[170]1:[153] A ;:[137]60
  18. 50 [137] 30
  19. 60 B[178]A[170]B
  20. 65 [137] 30
  21. 70 [139] N[178]0 [167] [153]"I DON'T HAVE ANY ";F$;" IN MY DATA BANK":[153]"MASTER!!":[137] 10
  22. 74 [143]****STATEMENT #75 AVRAGES DATA   AND ROUNDS DOWN TO NEAREST .01****
  23. 75 AV[178]B[173]N:AV[178]100[172]AV:AV[178][181](AV):AV[178]AV[173]100
  24. 80 [153]:[153]:[153]:[153]
  25. 95 [153]"AVRAGE PRICE IS:$";AV
  26. 99 [137] 10
  27. 100 [131] BLUE CHEESE 4 OZ,.53,BLUE CHEESE 4 OZ,.53
  28. 101 [131] VEAL SHOLDER STEAK,.99,LEAN GROUND BEEF,1.19
  29. 103 [131] IMITATION PICNIC HAM,.98
  30. 104 [131] HERRING,.49,RUM 151,2.66
  31. 105 [131] RUDABAGA,.39,GREEN ONION,.29,B F MAYO 16 OZ,.89
  32. 106 [131] RADISH,.25,151 RUM,2.66
  33. 107 [131] GREEN ONION,.29,DINNER OUT,7.61
  34. 108 [131] EGG EXTRA LARGE AA,.69
  35. 109 [131] TURNIP,.39,PEA SOUP,.39
  36. 110 [131] ASPARG,.89,TANGLO,.49
  37. 111 [131] CHICKEN THIGH,1.19,DINNER OUT,10.32,BACON,1.09
  38. 112 [131] GUAVA JUCE,.98,CHUCK SHOLDER,.98
  39. 113 [131] VITAMIN B COMPLEX,5.75,VITAMIN A,.85,CALCIUM,1.47,VITAMIN C 500MG.,1.99
  40. 114 [131] GUAVA JUCE,.98,BUTTER,1.39,CHUCK SHOLDER,.98,LETTUCE,.49
  41. 115 [131] RADISH,.29,MUSHROOM,1.98,151 RUM,2.66
  42. 116 [131] DINNER OUT,10.44,LONDON BROIL,1.69,LETTUCE,.59,MUSHROOM,1.98
  43. 117 [131] DINNER OUT,5.06,LONDON BROIL,1.59
  44. 118 [131] GREEN ONION,.19,MUSHROOM,1.98,CHICKEN LIVER,.79,YELLOW ONION,.25
  45. 119 [131] CAULIFLOWER,.39,TANGLO,.59,LEAN GROUND BEEF,1.19,MUSHROOM,1.98
  46. 120 [131] LONDON BROIL,1.79
  47. 10000 [131] EOF
  48. 10001 [143]**DONT ERASE STATEMENT 10000-     **IT MEANS "END OF FILE"**
  49.